home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / READCHAR.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  238b  |  13 lines

  1. PROGRAM read_some_char_data;
  2.  
  3. VAR  letter : CHAR;
  4.      index  : BYTE;
  5.  
  6. BEGIN
  7.   FOR index := 1 TO 5 DO
  8.   BEGIN
  9.     WRITE('Input a character ');
  10.     READLN(letter);
  11.     WRITELN('The character input was an ',letter);
  12.   END;
  13. END.